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RESACC.B30:1 


3 1 001 

3 ¢ Oe MODULE RESACC (LANGUAGE (BL 1885 a 

5 IDENT = ‘V04-000' 

; 4 094 )s 

; 5 : 5 ! BEGIN 

: 8 007 } PETTITT LITIL LILI LI LIELT LLL LTTE LLL TTT itt ttTtte 
: 8 'e ® 
3 y 009 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 10 01 1 !® DIGITAL EQUIPMENT EORPCRATION, MAYNARD, MASSACHUSETTS. * 
3 13 Bott : :* ALL RIGHTS RESERVED. . 
: i Big 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
8 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 15 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
$ 16 Bor$ 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 1 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: + ootS : 7 TRANSFERRED. - 
; 20 0020 1 i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $¢ 90 ¢ 1 is CORPORATION. ‘ 
. i® 

: 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $2 88 ? ; i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: 2? 0027 1 ie e 
: 28 eV, Me MSPS PSST SPST e Tr PTT TTT eee Pe Peer rrr tritici sii iit iit i titi tii iitiiiiiitiiicy 
; 9 0029 1 

3 0 $080 1 !4¢ 

; 1 0031 1! 

; 3 i : FACILITY: MTAACP 

; 34 0034 1 | ABSTRACT: 

: 3 Ooae : This module restores the file access to what was originally requested 
: 37 0037 1! 

3 ; Ones ! ENVIRONMENT : 

: 40 0040 1: STARLET operating system, including privileged system services 

ae 0041 1! and internal exec routines. 

; *§ 9k 7s 

: 2 98 a Bae 

eee 

; ‘3 004? i AUTHOR: D. H. GILLESPIE, CREATION DATE: 06-AUG-1977 

: 49 $3 i MODIFIED BY: 

: 34 et : V02-002 REFORMAT Maria del C. Nasr 30-Jun-1980 

F 28 “4 1 ive 

os. Be a8 1 

; B29 ! LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

: 3§ 0087 1 REQUIRE 'SRCS:MTADEF.B32’; 
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GLOBAL ROUTINE RESTORE_ACCESS : COMMON_CALL NOVALUE = 


FUNCTIONAL DESCRIPTION: 
: This routine restores the file access to what was originally requested 
and restores mapping pointer 


i CALLING SEQUENCE: 
! RESTORE_ACCESS() 
called Tn kernel_mode 


i INPUT PARAMETERS: 
none 


! IMPLICIT INPUTS: 

! CURRENT_WCB = address of current window control block 

this code is locked into core because it runs at synch level 
to synchronise with Q10 code 


i OUTPUT PARAMETERS: 
none 


i IMPLICIT OUTPUTS: 
file access restored 


i ROUTINE VALUE: 
none 


i SIDE EFFECTS: 
none 


BEGIN 

EXTERNAL REGISTER 
COMMON_REG; 

EXTERNAL 


CURRENT _UCB : REF BBLOCK, ! address of current unit control block 
CURRENT_WCB : REF BBLOCK; ' address of current window control block 


about to change access to file 

SET_IPLCIPL$ SYNCH); ! synchronize with Q10 
CURRENT_WCBCOCB$V_READ) = La weys qt read access 
CURRENT_WCBCWCBSV_ “URI Te) = VF CURRENT WCBLWCBSV_URIT ACI; 

restore mapping pter 


CURRENT_WCBCWCBSW_NMAP) 
(CURRENT WcBLUCBSO_ P1 Ptounti<0, 32> = ~ CURRENT _UC UCB; 


SET _IPL(O) r’ IPL 
CURRENT VcBLVCBSV _LOGICEOVS) = 0; 


os 


7 
A 1b-se 1984 02:31: AX-11 Bliss-32 V4.0-74 P 4 
VOe-000 1 35571 38e 93:28:28 MTAACP. SRCIRESAC B39: _ (2) 
-TITLE RESAC 
IDENT \V 2600. 
-EXTRN CURRENT_UCB, CURRENT_WCB 
«PSECT SLOCKEDC1$,NOWRT,2 


0000 000 ENTRY RESTORE ACCESS, Save nothing : 0444 
12 08 DA 000 MTPR = #8, #1 : 0489 
5 00006 cf p MOVL CURRENT WCB, RO : 0490 
0B AO 1 A BISB2 #1, 11(RO : 
0B AO 01 01 15 AO F : INSV 2170RO0), #1, #1, 11(RO) : 0491 
16 =A 01 B0 0001 MOVW oT ) + 0495 
30 A 00006 CF D 0019 MOVL § CURRENT_UCB, 48(RO) + 0496 
1 9 A 0001F MTPR #0, #18 + 0497 
0B AB A 90¢2 BICB2 #2. 11(CURRENT_VCB) + 0498 
4 00026 RET : 0499 


; Routine Size: 539 bytes, Routine Base: $LOCKEDC1$ + 0000 


; #118 0500 1 

3; «119 F44 1 END 

; 139 20¢ 1 

: 6121 05 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: S$LOCKEDC1S 39 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 

ihe Ke eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 

: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 11 0 1000 00:01.8 
; COMMAND QUALIFIERS 


; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:RESACC/OBJ=O0BJ$:RESACC MSRC$:RESACC/UPDATE=(ENHS$:RESACC) 


nESARE iboseoctgpe 08:51:59 pane) ob ie4=52 v4.05749 rage 3 


: § sizes :  g data bytes 
je Lines/cPU ihe i 
; —— n: 
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